ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 


SS _ -—— 


$F 
| **F I LEee]DeeSETPWD 
SSSSSSSS EEEEEEEEEE TITTTTTTTT PPPPPPPP WW WwW DDDDDDDD 
SSSSSSSS EEEEEEEEEE TTTTTTTTTT PPPPPPPP WW Ww DDDDDDDD 
SS EE TT pp PP WW Ww DD DD 
$s EE TT pe PP Ww WwW OD DOD 
SS EE TT PP PP WW Ww DD DD 
$s EE TT PP PP WW Ww DD DD 
SSSSSS EEEEEEEE TT PPPPPPPP WW WwW DD DD 
SSSSSS EEEEEEEE TT PPPPPPPP WW Ww DD DD 
SS EE TT pp WW Ww Ww OD DD 
SS EE TT pp WW Ww Ww OD DD 
SS EE TT pe WwWwW WWwwWWw DD DD wane 
SS EE TT pp WWW WhwWWw OD DD een 
SSSSSSSS EEEEEEEEEE TT pp WW) WwW DDDDDDDD nee 
SSSSSSSS EEEEEEEEEE TT pp WW Ww DDDDDDDD ages 
LL I1IIII SSSSSSSS 
LL III] SSSSSSSS 
LL I] Ss 
LL I] SS 
LL I] SS 
LL Il ss 
LL I] SSSSSS 
LL I] SSSSSS 
LL II SS 
LL I] Ss 
LL I] Ss 
LL 1] SS 
LLLLLLLLLL 111111 SSSSSSSS 
LLELELLLLLL eeeee SSSSSSSS 


ene 


KS 
SETPASSWORD 16-Sep-1986 00:35:4 AX-11 Bliss-32 v4.0-76 ° 1 
1o-808-13B2 99:58:7 CLIUTL -SRCJSETPWD.B32: ~— 4 


; 1 1 MODULE SETPASSWORD( 

: § 0 IDENT = ‘v04-000', 

; Z 0 Sree SSIS ODE SERTERUAL = GENERAL) 

4 = 

: 5 it : BEGIN 

: ? 5 } i eeeeerererereeeeeererererererereterereeeeererereeeerererenerereneereeeeetete 
: :* . 
; 3 808 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: 10 010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
; i} i} : : ALL RIGHTS RESERVED. * 
Py : 
$ ig §O18 1 !e a he § IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt Lt * 
: 14 bore 1 !@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 15 15 1 !®* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * 
° 1 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 1 01 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; + Bete : it TRANSFERRED. * 
Py : te 
3 $9 0020 1 !« pe INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE “ 
$ 1 0021 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $§ BB ; ; ” CORPORAT 10N. 7 
. :® 

: 4 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 ? 88 5 ; ~ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. % 
D4 ® 
a 0099 1 is . 
H i 00. 8 1 eee R RRR AARERAAAA AERA AAERAA AEE AAAAAEE ATER EEAAARAAAARAAEEARRAEERERRAREEE 
3 9 0029 1! 

Ro BR. 

: 32 005¢ i FACILITY: Set Password 

: $e S44 : ABSTRACT: Changes a users password in SYSUAF.DAT 

: 36 B36 : ENVIRONMENT: DCL Set Utility 

: 35 st 4 : AUTHOR: Chris Hume, CREATION DATE: 14-Jun-1979 

; 40 0040 ' MODIFIED BY: 

3; 62 0048 1: V03-009 JRLO017 John R. Lawson 6-Jul-1984 10:18 

3s 63 0043 1! Place system Bee Re HORI? in SYSUAF Dai in a special record 

3 $8 pees ! unaccessible AUTHORIZE 

46 0046 1 i v03-008 BLS0291 Benn Schreiber 24-MAR~1984 

3; 67 0047 1! Define SETS Parti eg here so we don't pull 

3 o8 Rpg : SETFILE into SETP 

: 50 nites 1: v03-007 SHZ0003 Stephen H. Zalewski, 02-Mar-1984 

= a jee r. ‘anger make special checks for null passwords. LGISHPWD 

3 26 O36 : ~? . now return a null password. 

; 54 054 1 V03-006 $n.v002 Stephen H. Zalewski 

3 35 055 1! Add support for /SECONDARY. ALL misc other security 

: 2$ p28 ' enhancements. 


32 
14-Sep-1984 CLIUTL.SRCJSETPWD.832; 


eee WORD 1b-sep-19 4 99: 33:6 AX-11 Oh iets V4.0=<74 Page as 


38 28 v03-005 $H20001 Stephen H. Zalewski 30-Dec-1983 
Add support for /GENERATE. 
V03-004 CWH3004 


C CW Hobbs 99-Nov-1983 

Remove the test for CAPTIVE added in GASO080. This broke 
some eit soe eet tone and is not strictly necessary 
since the LOCKPWD bit can be used. 


ee 


; 1 

3 1 

3 1 

3 1 

3 1 

; 1 

7 } 

; 1 v03-003 GAS0139 Gerry Smith 17-Jun-1983 
; +4 } Add the system password. 

3 § 1 v03-002 GASO112 Gerry Smith 29-Mar-1983 
3 ny : Remove all references to the old command dispatcher. 
; % 1 v03-001 GAS0080 Gerry Smith a 
; 73 («1 Disallow changing of password if the CAPTIVE bit 

; Bre : is set in the authorization record. 

3 0076 1 !-- 

; 0077 1 

; 007 1 LIBRARY 

; 0079 1 *SYSSLIBRARY:LIB'; 

; 0080 1 

3 0081 1! 

3 O08 : : Macro to make counted ASCII strings 

; 0084 1 MACRO 

: ™ 0085 1 CSTRINGC) = (UPLIT BYTE (ZCHARCOUNT(AZSTRING(ZREMAINING)), 

B} : ZSTRING(ZREMAINING)))2; 


(ioctl as SG Ee Pa ae 


| SETPASSWORD 16-Sep-1984 00:35:4 AX-11 ot PS -32 V4.0 P 3 
O86 oa8eb-198e 9:08:1 CLIUTL. SR) SETPWD. 835; a (2) 


1 
} Table of contents 


FORWARD ROUTINE 
setSpassword : NOVALUE, 
get_pwd, 
get_record, 
update_uaf : NOVALUE, 
update_sys : NOVALUE, 
open_uaf, 
get_uaf record, 
chectk_quaiifiers; 


The module entry point 
Terminal dialogue 
User Input 
Update the UAF record 
Update the system gesture 
$ PEN and SCONNECT to UAF 
Get a record from UAF. 
Get oad check tal wa’ qualifiers. 


' 
External routines 


EXTERNAL ROUTINE 
str$upcase, 
set_password_generate, 
clidpresent, 
cli$get_ value, 
LibScvt 
torshpede 
a 
; External storage 


EXTERNAL 
ctl$gq_procpriv : S$BBLOCK(8); 


Process privilege mask 
' 
Define messages 


EXTERNAL LITERAL 
set$_pwdnotval, 
set$_pwdnotver, 
set$_pwdlocked, 
set$_ ~pwdsyntax, 
set$_syspwderr, 
set$_uaferr 
set$_ ~invpwdlen, 
set$_pwdnotdif; 


SSHR_MSGDEF (set,119, local, 
(badvalue error)); 


Error validating old password 
Error verity ing. new password 
Password is locked 
Syntax error on new password | 
Error modifying system password 

Error accessing aythor teat ten file 

Invalid password length 

New password must be different from curretn one 


PIPPIN 2 OOO 
AEUM OOS NOU EU OOO NOMEN IO De we 


vw 


Define TRUE and FALSE 
LITERAL 


Pe at ot at ot ae”, WA PMOMITUNININPININID 2 2 9 4D ODOOOOOO woowoowovnovnno 
APU OOW ASAP UY OOO NOMNE UN OOD NO NRW OD NEAR AMOS be Oe Oe 
aaa a aa a i a tk tk 2 = a = a 


aa a a aa a an a ak a ak at a tk a ts = = = a ss 4) 2 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


3 false = 0, 
40 true = 1; 
41 
ry LITERA 
P 4 SEQULST (QUAL_..0,1, 
P 0144 (system,), ' /SYSTEM 


af 
33 
s 
| 
| 
| 


Oe Se Se Ge Ge Se Ge Ss Oe Se Ge Se Oe SH Se Se Se Se Se Se Se Se Se Se Se Se Se Se ee Sees 


N 5 
1ecSep-1986 12:09:17 — LeLiuresneSse teup-83e; 


-Sep-1984 

146 P0145 1 (generate,) ' /GENERAT 
14 146 1 (Secondary,)); i /SECONDARY 
128 128 1 | 
131 192 ; OWN storage 
1 : 1 ° 1 OWN 
15 1 ; 1 setpwd$flags : BITVECTOR[32] INITIAL(O), 
154 1 1 min pwd_length : INITIAL(O) 
155 154 1 old-pwd-buf : VECTOR(32,BYTE), 
156 155 1 new_pwd_buf : VECTORL32,BYTEJ, 
157 0196 1 vfy-pwd-buf : VECTOR(E32,BYTEJ, 
158 1 1 old=pwd-dsc: vECTORE [NITIAL(O, old_pwd_buf), 
159 8128 1 new pwd_dsc: VECTOR INITIAL(O, new_pwd_buf), 
160 159 1 vafbuf = BLOCK uatSc Length BYTE), 
161 0160 1 user_desc_: VECTORC2J INITIAL(O, uafbufCuaf$t_username]), 
168 P0161 1 uaffab : SFAB( 
16 P B66 1 FAC = (get. ut,upd), ' access types 
164 P 0163 1 FNM = ‘SYSUAF' ! user authorization file name 
165 P0164 1 DNM = 'SYSSSYSTEM:.DAT’ 
166 0165 1 SHR = (get put. del upd), 
188 4 Be FA 

= e€ ° 
im fhe) 0 setae. 

= e 
171 P0170 1 KBF = uafbufCuaf$t_username), 
ite P0171 1 KSZ = uaf$s_username, 
17 Pp O17@ 1 UBF = uafbu 
174 P0173 1 USZ = uaf$c_length, 
175 0174 1 FAB = uaffab); 
176 0175 1 


Page 


6 
(2) 


ee eee i a ee 


6 
TPASSWORD 1hese -1984 35:4 AX-11 Bliss-32 V4.0-74 Pp 
“be 1e=gee-1 88s 99:58:4 Ct TuTL sReISe SPUD O63 20% het 
1 GLOBAL ROUTINE set$password : NOVALUE = 
BEGIN 
5 'eoee 


' 
! This is the entry for the SET PASSWOPD command. It ‘is called by the SET 
: command dispatcher. 


wr 


. 
lease 


LOCAL 
status; 


." 


! If not setting SYSTEM password, then open and connect to SYSUAF.DAT, 
then get uaf record of user. 
if NOT open_uaf() 
THEN RETURN: 
IF NOT get uaf record() 
THEN RETURA; 


IF .vafbufluaf$v_lockpwd] AND NOT CLISPRESENT(ZASCID’SYSTEM') ! Check to see if the user has the right 
THEN ! to change the password. 
BEGIN ' If the password is locked he can't. 
SIGNAL _STOP(set$_pwdlocked); 
A atone 


—> ot tt tlt 


a a et et a a 
N 
Vw 


Check for command qualifiers, and determine minimum password length 
if /GENERATE was specified. 


' 
i 
i 
i 
check _qualifiers(); 
' 
i 
i 


Get the old and new passwords. If an error, then simply exit. 
if NOT (status = get_pwd()? 
THEN 


BEGIN 

SIGNAL (.status); 

RETURN; 

END; 
If /SYSTEM, then modify the system password. Otherwise change the password 
for this user. 


! 

i 

i 

i 

If .setpwd$flags(qual_system] 
THEN update_sys(); 


update_uaf(); 


> RETURN; 
1 END; 


See Se Be Oe Be Oe Oe Se Se Oe Se Ge Ge Ge Be Oe Se Ge SH SH Se SH Se Oe BH Se OH Se Oe oe Oe we OHS Se Oe Oe Oe we Oe Se Se Se Se Oe Oe Oe oe Oe Oe Oe Oe we 
ed ee a ed et ed et ed ed CoOoOCooo wooono ~o 
SSSR VOOR TS Sane rrun SSS UE AR UO S SOE OL SS 


BSVSRRANLS SONS ARUWIOSBURAR GA DOSw VRAIS 


SOOCOOCOOOCOOCOO OOOO OOOOCOSOOoOoOoOoOO 


PRIPPIPIPIPIPOPOPSPYPPPDPIPSPYPIPNPYP IY 


-TITLE SETPASSWORD 


ee 
ae 


de 2 3A a> 45 54 53 59 53 Be SS 8S 88 


00 00 4D 45 54 **orde0006, 


00000000 
00000000 


54 41 


00000000 


00000000' 
00000000 


00000000° 
00000000 


So 
So 
So 
So 
So 
Oooo 


oo 
Oo 
58.8222 ccce 
ooteO 


00 P.AAA: 


: P.AAB: 
18 P.AAD: 
$e P.AAC: 


1Soseoct9ge 09:85:45 


- IDENT 
-PSECT 


AX-11 Blisg-32 V4.0-74 
CLIUTL.SRCJSETPWD.832; 


\v04-000\ 
SPLITS,NOWRT ,NOEXE,2 
‘atiters 
\SYSSSYSTEM: .DAT\ 


REO 


el 
«ADDRESS P.AAD 


»PSECT 


00000 SETPWDSFLAGS: 


- LONG 
00004 MIN_PwD_LENGTH: 


00008 OLD_PuD_GuFs 
00028 NEw. PuD OUP 
00048 vFY_PwD_BUF : 
00068 OLD_PuD.bsts~ 
“ADDRESS OLD. PWD _BUF 


SOWNS ,NOEXE ,2 


32 
32 
32 


0006C 
00070 WEW_PUD_OSC: 9 
00074 “ADDRESS NEW_PWD_BUF 
goers UAFBUF: .BLKB 1412 
OSFC USER_DESC: 
-LONG 0 
0600 -ADDRESS UAFBUF +4 
0604 UAFFAB: .BYTE 3 
0605 -BYTE 80 
oS -WORD 0 
6 -LONG OQ 
Rove LONG 
061 -LONG 
14 LONG 
18 » WORD 0 
1A BYTE 11 
fon 
§ brie 
1 BYTE 
¢ BYTE 
BYTE 
4 ~ LONG 
8 - LONG 
C LONG 
-ADDRESS P.AAA 
-ADDRESS P.AAB 
BYTE 6 
-BYTE 15 
A WORD g 
065C LONG 


Pee Oe Oe Se Oe Se Oe Oe Oe Se Be Oe Se Se Be Oe Oe Oe Be Be Be Be Be oe oe 


3 


— 


th be 


pal9be 49:09:17 Lec iutusswe Sse teuD-836; al 


ow 


UAFRAB: .BYTE 


BOVUVlFOwMoorwo -~-— 
. 


- WORD 
eADDRESS UAF BUF 
«LONG 0 
-LONG 0 
00000000" 00684 ADDRESS | ghee, 
0 BYTE 3 
0 
0 
0 
0 


oo 
oO 
oOo 

o i 

SEES 
o 
@ 
< 
“4 
m 


0 
00000000 0068¢ 
00000000" 00690 
00000000 00694 


Sete Se Se Ge Be Be Ge Se Be Se Se Be Se Se Se Se Se Se Se Se Se Se Ge Se Se Se He Se Se Se Se He Se 


NG 
ADDRESS UAFFAB 
- LONG 


SUPCASE, SET PASSWORD GENERATE 
SPRESENT, CLISGET VALOE 
SCVT_DTB, LGIS$H He eM 

$60 PR OCPRIV 

$_PQDNOTVAL, SETS$_PWONOTVER 

$~ =PubLockeD: SETS~ =PUDSYNTAX 
S"SYSPWDERR, SETS_UAFERR 

$- INUPUDLER. SETS~ PUDNOTDIF 
-PSECT SCODES,NOWRT,2 


SETSPASSWORD, Save nothing 
#0, OPEN_UAF 


“~4—4—-- OD 


0176 
0192 | 


0194 
0196 


0000 000 


2 
: 


0000v 

0000Vv 

1¢ 0000° 
000000006 


oooo 


B : 

CALLS #0; GET_UAF_RECORD 
#2. UAFBUF+468, 1% 
CALLS #i, CLISPRESENT 
BLBS 


L 
PUSHL users PWDLOCKED 
CALLS . LTBSSTOP 


OPO 


0000° 


no "ao r"on 


000000006 0199 


—"O— "MNIOOOO 


OM OmMmM~amMma 
COOWO OM & ~ITY 
wv 
= 
a 
°s 
Pete Se Se Ge Ge Se Se Se Se Ge 


woo ™—oW ow 
Ssssss 
MmnmnN——— 


ooooo 


SOWOMOOMOMOuM"0 


oe oo 
o 


000000006 


“s5yragpuor ete — OB:55:45  YANGTT OL agc32,¥4.05742 Page 8 


04 RET : 019 
9900v CF f CALLS #0. CHECK _QUALIFIERS : 020 
V cf F .7 CALLS @ T_PQ@D : 0212 

A E BLBS STATUS, ~2$ : 
DD PUSHL  STATU : 0215 
000000066 00 1 FB ; CALLS #1, LIBSSIGNAL poe 
05 0000° cf E9 00048 2$: BLBC $ TPUDSFLAGS 3$ : 03 3 
0000v CF FB 0005 CALLS UPDATE_SYS 3 0226. 
0000v CF 00 FB 00055 3$: CALLS 50° UPDATE ~UAF ; 0226 
04 0005A 4$: RET 3 0229 


; Routine Size: 91 bytes, Routine Base: S$CODE$S + 0000 


3s 232 0230 1 


rabCrabsl ubf] = old 


wd_buf; 
70 et record(CSTRING( Old password: '), rab) 


POIPQIPIPIPIPIMPPSPININPO PIPPI PON Pononononoponys 


BIND new_password = new_pwd_buf : VECTORC,WORD]; 

set_password generate(new_pwd uf .min_pwd_ length); ! Returns ASCIC string. 
new_pwd_dsc ] = .new_passwordl0); ! Move count into descriptor. 

new pwd_dsc(1] = .new_pwd_dsc(1] + 2; ! Move buffer address past count. 
strdupcase (new_pwd_dsc, new_pwd_dsc); ! Upcase the password 


F 6 
SE TPASSWORD 16-Sep-1984 00:35:4 AX-11 Bliss-32 V4.0-74 Pa 
Rites 18-808- 1382 90:33 CLIUTL.SRCJIJSETPWD.832; pe ( 
: 1 1 ROUTINE t_pwd = 
: 5% Gg BEGIN <9 
; lees 
. i 
$ 5 i Ask the user for the new and old passwords, and verify that the user can 
: io type the new password twice in a row. 
at | ' Inputs: 
: r 83 . None. 
: 266 41 i Outputs: 
i 3 SS aes 
: Sef O58 5 
: 249 4 LOCAL 
3 50 8 <3 status 
; 2} P 0 48 fab : $FABCENM = *SYSSINPUT", 
3 = get), 
3 3g Pp osay rab : SRAB(ROP = <pmt,cvt,rne> 
; 254 P 0251 USZ = ZALLOCATION(old_pwd_buf), 
3; 255 0 26 FAB = fab); 
eae 
; 38 9 35 : Open sys$input. 
3 260 0 2$ if NOT SOPEN(FAB = fab) 
; 2 8 33 THEN RETURN set$_pwdnotval; 
: 85 0260 3 IF NOT SCONNECT(RAB = rab) 
; 266 0261 THEN RETURN set$_pwdnotval; 
OBE. 
3 267 0264 i Get the old password. 
: 568 0265 3 i —— 
; $$ es NOT 

; 1 026 THEN RETURR sets pydnotvel 

: Le 3 $ ELSE old_pwd_dscf0) = .rabCrab$w_rsz); 

: 27% 027 

; 275 027 ! Get the new password. If user specified /GENERATE, then generate passwords 

: 6 g for s/he to choose from. (Grammar?) 

; 7 iF .setpwd$flagsCqual_generate) 

: 097 2 THEN REE OIE o- 

3 7 BEGIN 

; 027 

3 027 

3 028 

; ose 


Pohonononononunonofonononononofofononyngny 
sAN~s ~ 
CoOno 


SSSLEREAN=AS 
MoPPoPoPonofofofy 
NOUS WN OS ODNOUS WNC OO 


ooooo 
00000000000 


BEGIN 
ae etrabst ubf] = new pwd buf; 
IF NOT geft_record(CSTRING(ZCHAR(13) ,2CHAR(10), "New password: '), rab) 


ea tee "Ry Tee toe § 6 
| SETPA 16-Sep-1984 00:35:4 AX-11 Bliss-32 V4.0-74 Pp 10 
yOu 1eagep-198e 99:09:17 Let Tur “Sab Ssespuaz935- mel: 
; THEN RETURN set$_pw pod) mag 
new_pwd_ dsc(0) = Fab rap _fs2z); 
IF TrabCrab$w_rszJ GTRU 31 ! Make sure password not to long. 

9 THEN RETURN set$_invpwdlen; 

3 If NOT ,set udStlogst ua =Systen) AND ' If not SYSTEM password, 

2 wes 2?ere® wirszj LSSU .vafbufluafSb_pwd_length] ! then check to make sure not to shord. 

95 BEGIN 

4 IF NOT (.set weS{ Leget quel pggentarys AND ' Null pessuerd allowed 

9 .rablrab$w_rszJ EQC 0) ! on SECONDARY password. 

38 — RETURN set$_invpwdlen; 

00 oe 

01 INCR i FROM 0 TO .new_pwd_dsc(0] - 1 ! Check new password for illegal characters. The only allow 

8¢ dO ! characters are A to Z, 0 to 9, the $ and _. 

0 BEGIN 

04 BIND 

05 char = new _pwd_bufC.i] : BYTE; 

09 IF (.char GEQU ZC'O* AND .char LEQU 2C' 


a 
) 
OR (.char GEQU ZC°A* AND .char LEQU %C'Z') 
OR .char EQLU ZC‘$* 
OR .char EQLU %C°_" 
THEN 1 
te RETURN set$_pwdsyntax; 


oo 


WN — 9 OONOVEW “OO ONOUS WOOO 


! 

! Make sure user knows what he cyees in. Do this by asking for the 
! new password again, and then checking that it's the same as the 
last one typed in. 


rabCrab$l_ubf) = viy pwd buf; 
T get record(CSTRING(ZCHAR(13) ,ZCHAR(10), "Verification: "), rab) 
THEN RETURN set$_pwdnotver; 


If .rabCrab$w_rsz] NEQU .new_pwd_dsc(0) 
THEN RETURN set$_pwdnotver; 


IF CHSNEQ(.rabCrab$w_r } 


oo 
SSSONO Ns UW OO NOME WO Dee 


ad MNMPINPINPINININ 2 2 St tS Oo 


z 
-new_pwd decei 
-rabCrabSw_rsz 


vfy_pwd_buf) 
THEN RETURN set$_pwdnotver; 
RETURN true; 
END; 


WAR OPONURINONOPUNUIUND 


wr 


w 


=PIPIPIPINPININPININININININININININININININWE & BLN B&F PWN 


SOOOCOCOCOOCOSCOCCOCOCOOOCOOCOCOOCOOOOOOOOOoO 


AWWAA AAAI AAAI AAI NAIA AIA AIA AIA 


w 
o@ 
w 
w 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


54 55 50 4E 49 26 53 59 53 90 8 P.AAE: ASCII \SYSSINPUT\ : 
93 60 P.AAF: <BYTE : 
0035 BYTE 0 ; 


rr —— eee eager _ | 


po 
wren 


64 
45000000 
30000000 
00000000 

0000 


& 
00000000 
0000 


1b-sen-1984 90:33:43 AX=11 Bliss-32 V4.0-74 


CLIUTL.SRCJSETPWO.832; 


«WORD 
- LONG 
f - LONG 
«LONG 
4 - LONG 
8 «WORD 
A -BYTE 
B -BYTE 
5 - LONG 
-BYTE 
1 -BYTE 
§ -BYTE 
-BYTE 
4 - LONG 
8 «LONG 
25 «LONG 
-ADDRESS P.AAE 
00064 - LONG g 
00068 BYTE 
00069 -BYTE 8 
DO06A - WORD 
$6 «LONG 0 
-WORD QO 
Me -BYTE QO 
07 -BYTE 0 
0074 -LONG 0 
0078 LONG 8 
o7¢ ~ WORD 
E BYT 0 
F -BYTE Q 
0080 -LONG Q 
084 P.AAG: .BYTE 1 
0085 BYTE 68 
00086 WORD 0 
0088 -LONG 1157627904 
08¢ -LONG 0 
0090 -LONG 0 
94 -WORD OC3] 
9A «WORD 
009¢ - LONG 
A - WORD 
O0A -BYTE 
A -BYTE 
AG WORD 2 
A «WORD 
00 - LONG 
AC - LONG 
80 «LONG 
B4 «LONG 
He -BYTE 
8 -BYTE 
OOBA -BYTE 
BB -BYTE 
B - LONG 
C -LONG 
LONG 
OC8 P.AAH: .BYTE 14 


oo —E ee a — - ———EE — 


| 6 
| SETPASSWORD 14-58 -1984 00:35:4 AX-11 Bliss-32 V4.0-74 Pp 1 
‘WOe-066 12-80-1908 99° 39:4 CLIUTL. SRCISE TPUD B32: are (a5 
20 3A 64 72 6F 77 73 73 61 70 20 66 6C 4F a5 nper ASCII \old password: \ : 
3A 64 72 6F 77 73 73 61 70 20 77 65 4E OA O08 : [ASCII <13><10>\New password: \ : 
EB P.AAJ: .BYTE 16 : 
3A 6EF 6F 69 74 61 63 69 66 69 72 65 56 OA 9p 38 "ASCII <13><10>\Verification: \ : 


NEW PWD BUF 
SYSSOPERN, SYSSCONNECT 
«PSECT SCODES,NOWRT,2 


OOFC Bee GET _PWD:.WORD Save R2,R3,R4,R5,R6,R7 : 0231 
57 0000v CF 9€ 0000 MOVAB GET_RECORD, R? : 
56 0000' CF 9E 0000 MOVAB NEW PWD DSC, R6 : 
5E Foe E 9€ 0000C MOV -148(SPY, SP : 
64 OA 0000" CF 005 F 00011 MOVC3 #80, P.AAF, FAB : 024 
6E 0090" CF 0044 BF OO01A MOVCS #68, P.AAG. RAB + 025 
C AE 44 AE OSE 00¢¢ MOVAB FAB. RAB+60 > 026 
44 AE 9F 000 PUSHAB : 025 
000000006 00 o1 re 002A CALLS #1, SYSSOPEN : 
1D 0 £9 00031 BLBC =._-«aRO,.-:*O1 ; 
3 DD 00 PUSHL + 0260 
000000006 00 Fe 0 36 CALLS #1, SYSSCONNECT : 
11 50 E 00 BLBC =. «RO, : 
24 «AE 98 A6 SE 90040 OV OLb_PWD_BUF, RAB+36 > 0266 
SE DD 0004 PUSHL SP : 0267 
0000" CF 9F 00047 PUSHAB P.AAH : 
67 02 FB 00048 CALLS #2, GET_RECORD : 
08 50 €8 0004E BLES =o : 
50 000000006 &F BO 90051 1$: ROVE #SETS_PWDNOTVAL, RO + 0268 
FBG 22. AE g 00059 2s: MOVZWL RAB+34, OLD_PwWD_DSC : 026 
22 90 Ab 01 a 00056 BBC #1, SETPWOSFLAGS, 3$ : 027 
94 A6 F 0006 PUSHAB MIN_PWD_LENGTH 3; 027 
BB A6 SF 00066 PUSHAB NEW_PWD -BUF : 
000000006 00 02 FB 0069 CALLS #2, SET~PASSWORD_GENERATE F 
66 BB Ab 3¢ 0070 MOVZ2WL NEW_PASSWORD, NEQ_PWD_DSC ; 0280 
04 Ab 92 CO 00074 ADDL2 #2, NEW_PWD_DSC+4 ; 0281 
6 DD 00078 PUSHL R6 : 0282 
56 DD OO07A PUSHL  R6 : 
000000006 00 08 FB 0007 CALLS #2, STRSUPCASE : 
11 0008 BRB 1 : 0275 
24 «AE BB Ad 9E 00085 3S MOV NEW_PWD_BUF, RAB+36 > 0286 
SE DD OOO8A PUSHL SP + 0287 
0000' CF 9F 0008C PUSHAB P.AAI : 
7 92 FB 090 CALLS #2, GET_RECORD : 
0 : 9 BLBC =OséaR : 
66 32 AE 3C 00096 MOVZWL RAB+ 34, NE W_PuD_DSC ; 0289 
1F “e 1 9A CMP RAB+54, #51 : 0290 
19 1A Hi BGTRU 4$ : | 
1D 90 Ab EB OOOA LBS § SETPWOSFLAGS, 5$ : 929 
50 0172 C6 9A OO0A4 MOVZBL UAFBUF #362, RO : 029 
22. AE 5 ei a9 CMPW SRO, ~RAB*34 : 
1 8 AD BLEQU ; 
05 90 Ab 02 €1 OOOAF BBC #2, SETPWDSFLAGS, 4$ > 0296 


Sioa, ‘ 
SETPASSWORD tb-se -1984 00:35:4 AX-11 Bliss-32 V4.0-74 
vO4-000 1 30071984 3:08:1 CLIUTL.SRCJSETPWD.832; 
22. =A ° pee TSTW RAB+ 34 
87 BEQL 
50 000000006 8F ? 8 4$ nye #SETS_INVPWDLEN, RO 
51 gt rf 3 5$: MNEGL #1, I 
. C4 BRB 9 
3 B8 A64 a4 C6 68: MOVZBL NEW_PWD_BUFCIJ, RO 
OS iF dooce sissu fs 
Po 8 Oba Be oo 
41 8F 0 et D5 7$ CMPB RO, #65 
F D BLSSU 
SA OF 91 dB CMPB RO, #90 
13 18 QOODF BLEQU §9$ 
24 5 4 QOE1 8$ CMPB ss «RO, #36 
oF 13 QO0E4 BEQL 9$ 
SF OSF 91 OO0E6 CMPB RO, #95 
08 13 QOOEA BEQL 
50 000000006 8F D0 Opes MOVL #SETS_PWDSYNTAX, RO 
04 OO0F RET 
cE 51 66 F2 QOOF4 9$: AOBLSS NEW_PWD_DSC, I, 6$ 
24 = OE D8 AG YE OOOFS 108: MOVAB VFY_PWD_BUF, RAB+36 
5E 0D O00FD PUSHL SP 
0000° 65 9F OOOFF PUSHAB P.AAJ 
67 . FB 00103 CALLS #2, GET_RECORD 
11 50 E9 00106 11$ BLBC RO, 
66 22. AE 10 00 €D 00109 CMPZV «#0, #16, RAB+34, NEW_PWD_DSC 
09 4s 0010F BNEQ 
D8 Ab 046 86 22. AE «29 00111 CMPC3 RAB+34, Q@NEW_PWD_DSC+4, VFY_PWD_BUF 
08 13 00118 BEQL 
50 000000006 8F 00 OO11A 12S: MOVL #SETS_PWONOTVER, RO 
04 00121 RET 
50 01 DO 00122 13$: MOVL #1, RO 
04 00125 RET 


; Routine Size: 294 bytes, Routine Base: S$CODES + 0058 


K 6 
SET 16-Sep-1984 00:35:4 AX-11 Bliss-32 V4.0-74 Pa 14 
vba 18-808-1382 99:38:4 CLIUTL. SRCISE TPUD.B32; 9° 65) 
3 1 ROUTINE get_record (prompt_string, rab) 
: BEGIN get. prompt. g. rab) = 
: 3 ,oee 
3 re Given a prompt string and a RAB address, get an input record. 
; i nny t_strin address of ASCIC prompt strin 
3 : ~ mpt str 
3 4 ' oo : Seress of RAB theme ° 
3 0345 : 
3 $ ! Outputs: 
; The RAB's buffer will be filled in with a password. 
: rt lene 
; 50 
3 0351 MAP 
3 0 26 rab : REF $BBLOCK 
; 035 prompt_string : REF VECTORC,BYTE); 
| Bs 
3 Be38 ; Set the specified prompt string and perform the $GET. 
: tet rab rab$b_psz) = .prompt_string(0]; ! Prompt size 
; 0338 rabCrab$l_pbf] = prompt_StringL1); ! and address 
; 6361 2 RETURN $GET(RAB = .rab); ' Return status of $GET 
; 0362 END; 
-EXTRN SYSSGET 
0000 00000 GET_RECORD: | 
«WORD Save nothing $ 0336 | 
50 08 AC 00 00002 MOVL R : 0 38 
34 AO 04 BC 90 00006 MOVB_  a@PROMPT_STRING, 52(RO) : 
30 ad 04 AC gi C1 00008 ADDL3 #1, PROMPT_STRING, 48(RO) : 0359 | 
0 DD 00011 PUSHL : 0361) 
000000006 00 01 FB 00013 CALLS #1, SYSSGET 3 
04 OOO1A RET ; 0362. 


; Routine Size: 27 bytes, Routine Base: $CODES + 0181 


; 367 0363 (1 


ee es ’ 
sueasavom ibe 


NE update_uaf : NOVALUE = 


and if s/he did, then replace the old password wi 


Inputs: 
new _pwd_dsc = descriptor for new password 
old_pwd_dsc - descriptor for old password 


Outputs: 


None. 


R 

8 

' 

i 

: Get the UAF record, verif 
i 

i 

i 

i 

i 

i 

} The UAF is updated. 
i 


LOCAL 


status 

enc_buf: VECTORCY $s pwd byte]. 

enc_dsc: VECTOR INITIAL (uaf$s_pwd, enc_buf), 
password, 

password date, 

encrypt_Byte : REF vector(, byte); 


i Determine whether we are updating fields for the 
password. 


So 5 tt SRD per te 


if NOT .setpwd$flagsCqual_secondary] 
THEN p gsiqual_ y 


BEGIN 

password = uefbufCys toe. pug): 

password date = uafbufluaf$q_pwd_date); 
encrypt_Byte = uafbufCuaf$b_encrypt): 


SESELSSSS 


WANA AAAWA AANA 
CONAUE Ww 


eo 


BEGIN 

password = uatoutCyst$e. ude); 

password date = uafbufluaf$q_pwd2_date); 
encrypt byte = uvafbufCuaf$b_encrypt2); 


rw 


Save URUv=SSSVSARaveSs 


i Encrypt what the user says is the old password. 
what is found in the UAF record. 


LGISHPWD(enc_dsc, 
old_pw 

-encrypt_byte(0) 

-uafbuflaaf$w_salt), 


user_desc); 

IF CHSNEQ(uaf$s_pwd, 
enc_buf, 
uafSs_pwd 
passwords 


Se ek ek et 


fwnr-00 + 4 


— os oes ss 


' Check to 
! passwords 


404 
4 
4 
4 
& 
“ 
4 
4 
& 
& 
4 
& 
4 
4 
4 
“ 
4 
6 
4 
& 


MEW —OOONOuM 
at et et ee 


fRorororofer 


ooo 


THEN 


=1986 
O-1984 


90: 33:4 ya Bliss-32 V4.0-74 
:09:1 CLIUTL.SRCJSETPWD.832; 


that the user typed in the correct password, 


th the new one. 


Primary or Secondary 


Then compare that to 


! Encrypt what the user typed in 


see if encrypted 
match. 


! If they don't match, tell 


[ 

m 6 

vO4-000" 1erSep-19ee Fo:d9:17 — EeLTURLesReSseteuo-030+7 nie | 
| 


; 4 $ 1 BEGIN ! the user. 

; 4 4 § SIGNAL (set$_pwdnotval); 

3; 4 3 RETURN; 

3; 6 424 END; 

s 6 425 

BS, 

; «4 : 3 : Compare the old password to the new password. If they match, this is illegal, 
: : : 4 so report an error and return. 

: 4 431 iF ( snew wd_dsc(0) EQL wd_dsc(0) 

3 : 04 ¢ CHSEOLT. old_pwd_ bschodr ota _pwd_ , OO _pwd_dsc(0),.new_pwd_dsc{1]) 
; 439 434 EN BEGIN 

3; 4460 0435 SIGNAL (set$_pwdnotdif); 

: 4461 04 $ RETURN; 

>; 44 04 3 

3; 46 438 

3 44646 9 ‘ 

; 445 0440 $ Encryet the new password, and put it into the UAF record. If the salt field 
3 “a gees i uaf is zero, generate a new salt before the encryption. 

3; 448 bee§ IF .uafbufCuaf$w_salt) EQL 0 ! Is salt zero? 

3; 4469 0444 THEN 

; 450 0445 ores 

3; 451 044 L time : VECTORS WORD); ! Get local quadword. 

; 43¢ 044 ScEITIA M(TIMADR = time); i Get current time. 

; 45 0448 uafbufCuaf$w_ salts = .time(1): i Salt is now 2nd word of time. 

: 454 0449 END; 

; 455 0450 

3; 456 0451 LGISHPWD(enc_dsc, ! Encrypt new password 

3; 457 Bees new_pwd_ esc. 

; 458 045 uaf$c pur dy ev 

3 459 0454 uatbut ua Sw. salt), 

; 460 0455 user_desc); 

: 461 8638 

3 re 4 045 ! 

; 46 0458 : Move new password into record, clear password expired bit, reset password 
3 464 0459 ; seers date, and make sure we always use newest encryption algorithm for 
; 465 0460 i PR Y or SECONDARY password. 

3; 467 bee CHSMOVE (uaf$s | ane ua buf. .gecouerd); Move new password to record. 

: 468 046 encrypt_byte(0) = uaf$c_purdy_v: Use PURDY_V encryption algorithm, 
: 469 64 -new_pwd_dscl + 0 Move new Eime (0 if password is is null) 
: 4670 65 THER C atint af$s ~Pwd. date. .password_ date) 

; 7} 46 ELSE SCETTIACTIMADR = .password_date); 

3; 4735 68 IF NOT gdeteuds LagsCqual secondary] 

3 474 v4 THEN uafbufCuat$v_pwd-expired) = false ' Clear expired bit. 

3 or) 20 vee uafbufluaf$v_pwd2_expired) = false; i Clear expired bit. 

3; 47 7 IF NOT SPUT(RAB = uafrab) ! Now update (UIF) the UAF file. 

; 478 7 THEN SIGNAL (set suaterr. 0 i if an error, tell the user. 

+ 479 7% .uafrablrab$l ~sts} 

; 480 2 suafrablrab$i"stv)); 


482 47 SCLOSE(FAB = uaffab); ' Close the UAF. 


suena 


4 
4 


i 
4 
5 


FE92 


c8 


G3 


<7 


RETURN; 
END; 


OE 


64 


64 


10 


FE8A 
FEBE 


NV VMM YVIMMO YS Pum 
ANE SNLSOMMMOOrw® 


~~ 
mm 


>o 
mo 


6A 


000000006 
FE92 


FEB8A 
FE96 


000000006 


133 


eEXTRN 
-EXTRN 


OFFC 00000 UPDATE_UAF: 


o> PrP Proro—-erooo 


o>>r> 
MOVIN OCOMICOCOT— MOCO "> COCO CO™ “ COCOWIIN COM COCO OCD OD OO COCUCOFUIN COCO NOOO 


SOoOoKPOOSOFPOV VW’!WMOS CMWOVMl-O—-WOOCOPrP OOO 


E 0000 
eF 0005 
9E Baie 
9E 0001 
C2 OO0IC 
4 Boose 
£0 000 3 
E 000 5 
9E 000 
9E 00036 
11 QO03A 
9E 0003¢ 
9E 00040 
9E 00044 
9F 00048 
3C 0004C 
9A 0004F 
9F 00052 
9F 00056 
4 00059 
29 0005¢ 
13 00061 
DD 00063 
H Bs 
12 00078 
20 00074 
007F 
12 00082 
DD 00084 
FB QOO8A 
04 09 
i 
8 Bs 
§ Biss 
F 00098 
C QO09F 
pp QOA2 
F QOOA4 
oF Rae 
F AB 
§ itn; 
008 


et 
A 
oe 


~™ 
w 


Ww 
sad 


4$: 
5$: 


6$: 


74 AX-11 Bliss-32 V4.0-74 
1? CLiutL Sees TPUD.83271 


M, SYS$PUT 


ve R2,R3,R4,R 
S$GETTIM, R11 
BSSIGNAL, R10 
ISHPWD, RO 

FRUF +358, RB 


$ 
UAFBUF +348, PASSWORD 
UAFBUF +388, PASSWORD DATE 
UAF BUF +361, ENCRYPT_BYTE 
USER _DE 

UAFBOF +358, -(SP) 
(ENCRYPT BYTE), =(SP) 
OLD_PwD_BSC 


#5, LGISHPWD 
#8, ENC_BUF, (PASSWORD) 


#SETS_PUDNOTVAL 
NEW_PWD_DSC, OLD_PUD_DSC 


+ @OLD_PWD_DSC+4, #0, - 


OLD_PwD_: .. i 
NEW-PWD-DSC, @NEW_PWD-DSC+4 
#SETS_PWDNOTDIF 

#1, LIBSSIGNAL 
UAF BUF +358 

6$ 

SP 

#1, SYSSGETTIM 

TIME+2, UAFBUF +358 
USER _D 

UAFBOF +358, =(SP) 
NEW_PwWD_DSC 

#5, “LGISHPWD 

ue ENC_BUF, (PASSWORD) 
#2. (ENCRYPT _BYTE) 


5,R6,R7,R8,RI,R10,R11 


So 99999 rrr 


Perr 
Fatt sty pete bed. ave) 


———— O00 00 


eee sss 


—_— 


ponteeete (eee pean tte Ikea ni insta 
? 
, SETPA D 1b-se -1984 35:4 AX-11 at =32 vé.0-74 
| ae ae 90:33:93 CLIUTL. SRC} SETPWD.B32; 
FE92 TSTL WEW_PUD_DSC 
BNEG = 7 
08 00 AE MOVCS #0, (SP), #0, #8, (PASSWORD_DATE) 
3 BRB 8$ 
PUSHL PASSWORD DA TE 
CALLS » SY 
| 06 FE22 cB BBS ; STP PUBSFLAGS, 9$ 
oF OA ‘ Biter ‘ UAF BUF +469 
| 6F AB 4 BICB2 #4, UAFBUF+469 
4 PUSHAB UA 
000000006 60 1 CALLS , $YS$PUT 
10 9 BLBS RC 1 
re 0476 cs mova Unease, =(SP) 
| 000000006 Bt PUSHL —#SETS. UAFERR 
| 4 CALLS #4, LYBSSIGNAL 
0426 C8 PUSHAB AF FAB 
| 000000006 00 01 CALLS #1, SYSSCLOSE 
nce 


; Routine Size: 259 bytes, Routine Base: SCONES + 019C 


| 
| 
| 
| 


iss 


—tt ea 


re 7 1 
é § 
4 

bd 5 
49 

49 

6 

495 

4 

49 

49 


= 


SPER ISSSLESP OS IESE 


se SSSSSesssssssess 


WA 


7 
1$-se “19 7:35:46 AX=-11 Bliss-32 V4.0-74 
122868=1 382 9953031 Yet iute sre Se1PUD 83244 
ROUTINE update_sys : NOVALUE = 
BEGIN 


lees 
‘ 


Update the encrypted system password. 


i 
i 
! Inputs: 
; old_pwd_dsc = descriptor of old password 
new_pwd_dsc = descriptor of new password 
inn 


; First, check to see if the user has the SECURITY privilege. 


if NOT celia procerivlprySy security) THEN 
SIGNAL _STOP(setS_syspwderf, ss$_nosecurity); 


' 
Make sure the special record has everthing it needs 


uafbufCuaf$b_encrypt) = uaf$c_purdy_v; 
RETURN; 
END; 


0000 00000 UPDATE_sYS: 
WORD 


‘ Save poraens 
12 000000006 90 6 £0 00002 BBS #6, CTL$GQ_PROCPRIV+4, 1$ 
E 2934 8F %3C OOO0A MOVZ2WL #10548, -(SP) 
000000006 8F dD O000F PUSHL #SET$_SYSPWDERR 
000000006 00 02 8 00015 CALLS a2. LTBSSTOP 
0000' CF 02 90 0001C 1$: MOVB #2, UAFBUF +360 
04 00021 RET 


; Routine Size: 34 bytes, Routine Base: S$CODES + 029F 


fe 


thai ! 


1986 92:00:17 — EeCiUt 8SAeSsé foun 8307 Page 8) 


13 ROUTINE check qualifiers = 

1 BEGIN 

15 leee 

1 ; 

: Get the minimum password length prior to generating passwords. 

¥ i Inputs 
none 

5 Outputs 

5 min pwd_length = minimum password Length to generate. 

° — 

3 CAL 

infile desc: SBBLOCK Cdsc$c_s_bin] INITIAL(O), 

1 status; 

: infile_desc(dsc$b_class] = dsc$k_class_d; ! Make descriptor dynamic 

5 ; 
Get qualifiers 
setpwd$flags qual_generate) = cli$present ($descriptor(*GENERATE')); 
setpwd$flags(qual_system) ca cli$present (Sdescriptor(*SYSTEM')); 
setpwd$flags(qual_secondary] = cliSpresent ($descriptor( "SECONDARY" )) 


AND NOT setpwd$flags(qual_system); 


' 
If GENPWD bit set in uaf record, then user sust use password generator. 


if NOT -setpwd$flags(qual_system) 
THEN setpwd$flags(qual_generate] = .setpwd$flags(qual_generate] OR .uafbufCuaf$v_genpwd); 


} If /GENERATE not set, we are done. 


If NOT .set weet onsCqual generate} ! /GENERATE specified? 
THEN RETURN TRUE; ! No, exit with success. 


' 
Calculate minimum length of word to be generated by password generator. 


if status = cli$get_value(S$descriptor("GENERATE'), infile_desc) ! Get value for /GENERATE if one specified. 


BEGIN 

LibScvt_dtb(.infile_desc Cdsc$w_len thi. : ! Move value into Global variable 
-infile desc fdscke pointer), min pwd Length); ; 

IF (min pyd_ten th LEQ 0) OR T.min_pwd_length GTR 10) ' If size LEQ 0 or GTR 10 


SIGNAL_STOP (set$_badvalue,1,infile_desc); ! report an error. 


ELS 
min_pwd_length = 6; ! No value, default to 6. 


RAIA REE REE 
SS SFOS SEVEN SSS NO APN mo Se 


Sy abel ah ah al val al ah ab th Ah sbedh Abb ah ah Abed edb dh db d-dh db-th-th ah ah ah sb shah sh al al 


o 
oO 


& 


' 
! Minimum password length for /GENERATE is larger of current minimum password length versus 


63 


63 


63 
34 


63 


0240 


iEoseont9ge 09:55 


AX-11 Bliss-32 V4.0- 4¢ 
CLIUTL.SRCJSETPWD.B32; 


minimum password Length specified in UAF, but no greater than 10. 


if NOT setpudSt lags (qual system] THEN 
eB Lengt 

min_pwd_length = MIN(.min_pwd_Llength, 

RETURN true; 

END; 


45 54 41 52 45 4& 45 47 Soo? 
4.6454 9 8 3188 
cd 45 54 53" 59 58 Ootoe 
000000 0114 
mee * 00118 
59 52 41 446 4E GF 43 4 00125 
00000009 00128 
Copgoors" 0012C 
45 54 41 52 4E 45 47 00130 
00000008 ool ae 
00000000° 0015Cc 
001C 00000 
54 000000006 00 9€ 0000 
53 0000" CF 25 00 
5E 7 C2 QO00E 
E 04 00011 
04 as D4 00015 
03 AE 02 90 00016 
0000" CF 9F QOODIA 
64 9} Fe Hh 
01 01 0 fF 8 
0000" CF 9F 6 
64 9} 4 OO2A 
01 00 0 Ff 83 B 
0000" CF 9F 
¢ 01 FB 3 
1 3 9E 9 
52 50 1 8 
01 02 § F 4 
14 E 4 
63 1 1 EF 48 
C 1 0 ff 4D 
0 1 | 54 
01 01 0 F 057 


= MAXT.uafbufCuat$b pwd_ length), .min_pwd_vength); 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


P.AAL: .ASCII \GENERATE\ 
-BLKB 
P.AAK: .LONG 
«ADDRESS P.AAL 
P.AAN: . ASCII \SYSTEM\ 
-~BLKB 2 
P.AAM: .LONG 6 
«ADDRESS P.AAN 
P.AAP: .ASCII \SECONDARY\ 
-BLKB 5 
P.AAO: .LONG 9 
«ADDRESS P.AAP 
P.AAR: .ASCII \GENERATE\ 
P.AAQ 


- LONG 
-ADDRESS P.AAR 


-PSECT SCODES,NOWRT,2 
CHECK_QUALIFIERS: 
. WORD 


0 Save R2,R3,R4 
MOVAB CLISPRESENT, R4 
MOV SETPWDSFLAGS, R3 
SUBL2 #4, SP 
CLRL —sINFILE_DESC 
CLRL —sINFILE “DESC +4 
MOVE #2, INFILE_DESC+3 
PUSHAB P.AAK 
CALLS #1, CLISPRESENT 


INSV RO, #1, #1, SETPWDSFLAGS 

PUSHAB P.AAM 
#i, CLISPRESENT 

RO , , #1, SETPWOSFLAGS 


PUSHAB P. 

CALLS #1, CLISPRESENT 

MOV SE TPUDSFLAGS, R1 

BICB3 Ri, RO, R 

INS R2, #2. #1, SETPWDSFLAGS 
SE fPwDSFLAGS 


Wi, #1, SETPWDSFLAGS, RO 
#0, #1. UAFBUF 4469, R1 


R1, R 
RO, #1, #1, SETPWOSFLAGS 


re 


Pe See Se Se Se Se Se Se Ge Se Ge Se Ge Se Se Se Se Se Se Se Oe Be 


- 
suas 


6c 63 gh 4 
0000° CF F 

000000006 9p 4; 
§ 

aa 

7 8 AE Se 
000000006 2 05 F 
046 =A ? 

OA 5 1 

> 3 

af DD 

1 DD 

00771112 F OD 

000000006 00 ? ‘? 

04 a 4 

8 i 

9 O1E2 f A 

06 =A 0 01 

04 18 

50 04 A3 00 

06 Ad 5 4 

50 06 Ad OD 

OA 50 01 

03 15 

29 OA 00 

046 =#OA 50 00 

50 01 00 

04 

; Routine Size: 208 bytes, Routine Base: S$CODES + 02C1 


; 578 0571 «1 


74 
32; 


a, 
16-Sep-1984 00:35:4 AX-11 Bliss-32 v4.0- 
10-808-1 38 90:38:4 Eettute sre SETPWD.B 
SC 1$: BBC #1, SETPWDSFLAGS, 8S 
PUSHL SP 
6 PUSHAB P.AAQ 
9 CALLS #2 CLISGET_VALUE 
$p L6C  —- STATUS 
0 : PUSHAB MIN PWO_LENGTH 
7 SHL INFILE_BESC+4 
76 MOVZWL INFILE-DESC, =-(SP) 
OO7A CALLS #3, LIBSCVT_DTB 
81 VL BIN.PUD LENGTH, RO 
0 3 BLEG 2 
0 CMPL RO. #10 
A BLEG 4 
008C 2$ PUSHL  $P 
00 PUSHL #1 
90 PUSHL #7803154 
96 CALLS #3, LIBSSTOP 
0090 BRB 4$ 
009¢ 3$: MOVL #6, MIN_PWD_LENGTH 
OOA3 4$: MOVAB SETPWOSFLAGS, RO 
DONG BLBS 
OA MOVZBL UAFBUF+362, RO 
OOA CMPL RO, MIN_PWO_LENGTH 
0008 BGEQ 46=«-«SS$ 
00084 MOVL §§ MIN_PWD_LENGTH, RO 
00088 S$: MOVL RO, MIN-PWD_LENGTH 
Bnpee 6$: MOVL MIN_PWD_LENGTH, RO 
00C CMPL = RO, “#10 
000¢ BLEQ 
000¢ MOVL #10, RO 
000C8 7$: MOVL RO, MIN_PWD_LENGTH 
OO0CC 8$: MOVL #1. RO 
OO0CF RET 


Pe Pe Se Se Se Be Be Se Ge Se Se Se Ge Se Ge Se Ge Se Ge Se Ge Ge Se Se He Se Se Se Se Se Se Ge Se 


om ss ee a ae 


POPP PPPS APSAAAIIS 


VPwn— 


BLESEANLESSLSEREELES 


GOCOOCCCOCOOOCOCOCOOOCOOO0OO 


PUPA 


COOoocoocco 

PPA 
ooo 
wn—oo 


SESS Resess 
S3SS3S2 


SRaes 


FESSSEES 
Se 


TN a a a 


WR =O OBNO NEW —OOONOUEWN Oo 
vo vuvD 
SESSSSOSS 


PAAPAAHPASAAAOAAAAAAAAAAAAAAS 
DWNOVUEWN —O O@NOUS WN OOM 


POPIPIPIPPIPNNY —* tt OO 


SAF 


& 


7 
1B-seo-1984 00:55:45 yanett BL 


= 


@ 
om 
oa 
> 


Open the UAF file, Connect to it, and stuff the username of this process 
into the rab in preparation for the get of his record. 


Inputs: 
uaffab - fab to access the UAF. 
uafrab = rab to access the UAF. 


Outputs: 
None 


status, 
iosb : VECTOR(4,WORD) 
item_list : SITMLST_DECL(ITEMS = 1); 


' 
: Only use EXEC Logical name table when opening the authorization file. 
uaf fabl fab$v_lnm_mode) = psl$c_exec; 


' 
! Obtain the username of this process or the system. 


: Must fill username buffer with blanks first. 
CHSFILL (* *,uaf$s_username,uafbufluaf$t_username)); 
IF cl 1Spresent (Rasc id°SYSTER”) THEN 

BEG! 


CHSMOVE(17, UPLIT('<System+Password>'), uafbufCuaf$t_username)); 
user_desc(0) = 17; 


ELSE 
BEGIN 


st 

pig username. 
b$s_username, 
atbuttuafst username], 
ser_desc(0JJ); 


ccuV3ae.—. 


SGETJPIWCITMLST = item, 
EM 10SB = I0SB); 


ry to open the UAF. If a file-sharing problem, try one more time. 
f that open doesn't work, then give up. 


wot (status = SOPEN(FAB = uaffab)) 


GIN 
F ,status EQL rms$_sne 


ee 


| SETPA Bese “19 
se 1gosenetg 
3: 637 OR .status EOL rms 

; ? zstetus QL rms 

; 640 ; rf “BEGIN 

; ge $ TL = uvaffab)) 

; $08 5 6 tWEN’s SIGNAL (set$_uaferr 

> 6446 4 raat Tabi fabst -3t8] 

; 645 ‘ a .uaftablfab$i~stv)); 

; ge9 $ ELSE SIGNAL (set$ uaferr 

3 ose » -ua Hrabifabét sts) 

3 $69 a, .uaffabl fab$i“stv)); 

: gat 5 ] 

3 $26 4 

; $27 5 ; Return if the open failed. 

: 655 8 ir NOT .sta 

5 628 3 THEN RETURN Status; 

i See 50 5: 

3 $22 065 i Do the same sort of stuff for the connect. 

; 661 38 ig nor (status = SCONNECT(RAB = uafrab)) 

2 2 ee 

: 665 0337 ; THER ok pi ten! emits 

; $e? et 4 a Ttebl fabSw _gbc) = 0; 

; 668 0660 5 IF NOT (status = SCONNECT (RAB = uafrab)) 

; 669 0661 4 THEN SIG Seetd uvaferr 

; 670 Roeg 4 ua trablrabét ated 

3; 671 0665 4 -uafrablrab$l“stv j 

3 676 0664 4 END 

; 67 0665 ELSE SIGHAL (sets uaferr,0, 

3; 674 268 ua tFabtrabét tht 

: 675 066 -uafrablrab$l stv) 

r} ore 68 

: ye $690 RETURN «stat 

: 679 0671 “ompsie: 


00 00 4D 45 54 53 59 53 00140 P.AA 
00900000" Se P.AAS 
72 6F 77 73 73 61 SO 28 6D 65 74 73 79 ; C 0150 P.AAU: 
00 00 00 SE 64 0015F 


a 12:09:17 


aetna ta tac ee 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


ASCII puree 

LONG 

“ADDRESS P 

ASCII 0. EE Se 


~-EXTRN SYSSGETJPIW 
-PSECT SCODES,NOWRT,2 


sus 


0502 


38 


26 
000000006 


°6 0380 


000000006 


0001879C 
000187A4 
00018404 


0001C14C 


ef 


0000" 


0202000C 
0580 


18 
oc 


0588 


0508 


0308 


0 


POO —WMIMNOO MNOWAIO NOON 2 SNI90M SS WMIOO 
PAIN SN FS OMOAMO AAS VWONMNNINO- 


ibeseo-1964 99:85:45 


O7FC 00000 OPEN_UAF : 


WO 
0 MOVAB 
MOVAB 
19 MOVL 
E 1 MOVAB 
$36 MOV 
C SUBL 
F 6 INSV 
2c movCcs 
oF 6 PUSHAB 
44 0 CALLS 
3 0 BLBC 
8 0004 mOovCc3 
DO 00047 MOVL 
11 Q004C BRB 
43 ooe 1$ MOVAB 
3 005 MOVL 
€ 00058 MOVAB 
9E 00058 MOV 
pe 000: CLRL 
C 0006 CLRO 
9F 00064 PUSH 
9F 00067 PUSHAB 
7C QOO6A CLRO 
04 0006C CLAL 
FB 4 CALLS 
9F 00075 2$ PUSHAB 
fe 0079 CALLS 
dO 0007C VL 
E8 0007F BLBS 
Di 0008 CMPL 
13 0008 BEQL 
D1 siti CMPL 
13 44 BEQL 
D1 00094 CMPL 
12 00098 BNEQ 
94 0009D 3$: CLRB 
9F OOOA1 PUSHAB 
FB OOOAS CALLS 
DO 000A8 MOVL 
58 AB BLBS 
) AE 4$: MOV 
D4 0008 CLRL 
DD 0008 PUSHL 
4 008 CALLS 
3 yen BLBC 
F BD 5$: PUSHAB 
F ‘SF CALLS 
i) C4 MOVL 
E C7 BLBS 
° CA CMPL 
2 D1 BNEQ 
ee 3 CLRW 
F 0000 PUSHAB 


AX-11 Bliss-32 V4.0-7 
CLIUTL.SRCJSETPWD. B32; 


# R2, AT pate -R6,R7,RB,RI,R10 
RO 


~ +74 
» #32, UAFBUF +4 


2vD 22 2Cvarunm 
on 


- AAS 
vl, : ISPRESENT 
R0, 


#1?, P.AAU, UAFBUF +4 
a7; USER_DESC 


Ten 1ST. SSITMBLKPTR 
#3368 ssritemuae rape 
UAF BUF +4 ($$ITMB 
USER DESC CSSITROLKPTRD® 
CBS1TRBLKPrADs 
10S8 
ITEM_LIST 
=(SPY 
-(SP) 

#7, SYSSGETJPIW 
UAF FAB 


#1, SYSSOPEN 
RO, STATUS 


STATUS, 5$ 
eaters #100252 
TATUS, #100260 

PLANUS. #99540 

UAF FAB+23 

UAF FAB 
#1, syssorce 

RO, 


#4 L1BSS1GNAL 
TATUS, 7$ 

UAF RAB 

#1, SYSSCONNECT 
0; STATUS 
STATUS, 7$ 
STATUS. #115020 

UAFFAB+72 

UAF RAB 


0617 


0625 


0628 
0629 
0630 


0633 


0634 


0640 
0639 


0647 


0653 


0656 


0659 
0660 


Sacer I ST ay oe eet ge 


+ Ae 1) 18-sep-1984 90: 33:4 AX-11 Bliss-32 V4.0-74 Page (3° 


14-Sep-19 CLIUTL.SRCJSETPWD.832; ) 

A 1 FB 000DB CALLS #1, SYSSCONNECT : 

2 00 MOVL RO, STAT ; 
¢ 3 OOE BLBS  STATU : | 
E OSEO C6 7D OODES 6S: MOVO UAFRAB+8, =(SP) + 0666 
7E 04 000E9 LRL = (SP + 0665 
58 DD 000EB PUSHL RB : 

$9 4 FB O0ED CALLS #4, LIBSSIGNAL : 
0 2 p OOF 7$: MOVL STATUS, RO + 0670) 
4 OOOF RET ; 0671.) 


; Routine Size: 244 bytes, Routine Base: SCODES + 0391 


; 680 0672 #1 


Bg 57 
TPA 16-Sep-1984 00:35:4 AX-11 Bliss-32 V4.0-74 2 7 
+ aa 12-3 08=1382 90:38:47 CLIUTL.SRC SEtPUb o3004 age 48) 
; 673 1 ROUTINE get_uaf_record = 
$ are BEGIN 
: of 4ooe 
87 i Try to read the user record. In the event that we get an error that says 
q4 ! the record re locked, then go into nap mode, agrees this process to 
679 2? ! wake up in 2 milliseconsds. If, after two naps, we still have a problem, 
oe8 et : then forget it. 
691 +1) ! Inputs: 
4 68 uafrab - rab to access the UAF. 
694 685 i Outputs: 
244 : : None. 
637 lose 
104 LOCAL 
aoe 524 status; 
4 0698 oe (status = $GET(RAB = uafrab)) 
704 95 BEGIN 
705 94 IF .status EQL rms$_rlk 
re 069 THEN INCR i FROM 1 TO 2 DO 
70 0698 4 BEGIN 
708 0699 5 IF SSCHDWK(DAYTIM = UPLIT(-200000, -1)) 
709 0700 4 THEN SHIBER(); 
710 0701 4 status = $GET(RAB = uafrab): 
711 444 4 IF .status NEQ rms$_rlk 
et oe toe 
oe 34 ? oar”: ees EQL rms$_rnf THEN 
716 $798 4 UAF RABCRABSL_RBFJ = UAFBUF; 
717 0708 4 UAF RABCRABSW_RSZJ = UAFSC_LENGTH; 
718 0709 4 RETURN rms$_normal; 
719 0710 END; 
g ’ grt END; 
¢ Mab IF NOT .status 
724 0715 SIGNAL (set$_uaferr,0, 
725 O76 uafrab rab§l sts] 
4 6 or” uafrabcrab$l"stvJ); 
728 0719 RETURN .status; 
729 0720 END; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
FFFFFFFE FFFCF2CO 00164 P.AAV: .LONG 200000, -1 : 
-EXTRN SYSSSCHDWK, SYSSHIBER 


7 
$5 PASSWORD IB-Sep-1984 00:55:48 YARGIT Bing 52 4.0274 
-PSECT SCODES,NOWRT,2 


003C 00000 GET_UAF _RECORD: 
we Save Bg 2 M4 RS 


§ 000000006 00 9€ 000 MOVAB SYSSGET. 
22 0000" cf 3f MOV UAFRAB, R4& 
4 DD PUSHL 
1 F 1 CALLS #1, SYSSGET 
D 1 MOVL RO, STAT 
E O16 BLBS STATUS, 
000182AA BF D} 1 CMPL STATUS, #98986 
6 2 BNEG § 
52 1D MOVL #1, 1 
E 04 00025 1$ CLRL 0s = ¢§P) 
0000° cr 9F 000 PUSHAB P.AAV 
— 7C 00028 CLRQ 0 =( SP) 
000000006 00 g4 re 0020 CALLS #4, SYSSSCHDWK 
OA 0 £9 000 BLBC =—_—«aRO,. 2S 
000000006 00 00 FB 00037 CALLS #0, SYSSHIBER 
60 90 FB 0003E CALLS #0. (RO) 
4 DD 00041 28 PUSHL  R4 
65 01 FB 00043 CALLS #1, SYS$GET 
53 50 D 00046 MOVL RO, STATUS 
000182AA BF 53 D1 00049 CMPL STATUS, #98986 
: iF 00050 BNEQ 4$ 
CF 52 2 F 900¢ AOBLEQ #2, I, 1$ 
1p 11 0005 BRB 
00018282 BF 53 D1 00058 3$ CMPL = STATUS, #98994 
14 12 005% BNEQ 4$ 
$8 AG FA24 C4 43 0061 MOVAB UAF BUF, UAFRAB+40 
2 AG 0584 8F B60 00067 MOVW #141 UAF RAB+34 
50 00010001 8F D0 0006D MOVL #65537, RO 
04 00074 RET 
13 53 8 00075 4$ BLBS STATUS, 5$ 
7E 08 A& 7D 00078 MOVO UAFRAB+8, =(SP) 
7E 04 0007C¢ CLRL = = (SP) 
000000006 8F DD O007E PUSHL #SET$_UAFERR 
000000006 00 04 FB 00084 CALLS #4, LYBSSIGNAL 
50 53 DO 00088 S$: MOVL STATUS, RO 
04 0008E RET 


; Routine Size: 143 bytes, Routine Base: S$CODES + 0485 


: 730 0721 #1 


Pee ee Be Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se Be Se Se Se Se Se 


“ wu 


: #8 8788 0 ELuoon 


PSECT SUMMARY 
Name Bytes Attributes 
SOWNS 1688 NOVEC, WRT, RD ,NOEXE,NOSHR, 
SPLITS 64 NOVEC, *NOWRT, RD ,NOEXE,NOSHR, 
SCODES 1300 NOVEC *NOWRT, RD , EXE,NOSHR, 
Library Statistics 

woceeee= Symbols -------- 

File Total Loaded Percent 

~$255$DUA28: CSYSLIBILIB.L32;1 18619 108 0 


COMMAND QUALIFIERS 


“mM 7 
1er$ep-1986 12:09:17 


AX-11 a YS Pe V4.0-74 
CLIUTL.SRCISETPWD.832; 


-EXTRN LIBSSIGNAL, LIBSSTOP 


Pages 
Mapped 


1000 


CON,NOPIC,ALIGN(2) 
CON,NOPIC,ALIGN(2) 
CON, NOPIC ,ALIGN(2) 


Processing 
Time 


00:01.8 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SETPWO/OBJ=OBJ$:SETPWD MSRC$:SETPWD/UPDATE=(ENHS$:SETPWD) 


Size: 1300 0:95. + 2052 data bytes 
me: 725.5 

Elapsed Time: Of: A 6.0 

Lexemes/CPU-Min: 273 


Memor "Y Used: 165 pages 
Compilation Complete 


Pee a4) 
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